home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / kernel / method.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  2KB  |  88 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16.  
  17. #define    CLASS    Method_c
  18. #define    ivType    Method_iv_t
  19.  
  20. #include "generics.h"
  21.  
  22. object    Method_c;
  23.  
  24. #include "method.iv"
  25.  
  26.  
  27.  
  28. #line 23 "method.d"
  29. imeth char * Method_im_gName(object self)
  30. { Method_iv_t *iv = GetIVs(Method, self);
  31.     return iv->name; 
  32. } 
  33.  
  34. imeth int Method_im_gTrace(object self, int mode)
  35. { Method_iv_t *iv = GetIVs(Method, self);
  36.     int pmode = iv->trace; 
  37.     iv->trace = mode; 
  38.     return pmode; 
  39. } 
  40.  
  41. imeth ofun Method_im_gFunction(object self)
  42. { Method_iv_t *iv = GetIVs(Method, self);
  43.     return iv->meth; 
  44. } 
  45.  
  46. imeth ofun Method_im_gChangeFunction(object self, ofun fun)
  47. { Method_iv_t *iv = GetIVs(Method, self);
  48.     ofun org; 
  49.  
  50.     org = iv->meth; 
  51.     iv->meth = fun; 
  52.     return org; 
  53. } 
  54.  
  55. imeth objrtn Method_im_gCopy(object self)
  56. { 
  57.     return gShouldNotImplement(self, "gCopy/gDeepCopy"); 
  58. } 
  59.  
  60. objrtn Method_initialize(void) 
  61. { 
  62.     static int done = 0; 
  63.  
  64.  
  65.  
  66.  
  67.     if (done) 
  68.         return Method_c; 
  69.  
  70.     done = 1; 
  71.  
  72.  
  73.  
  74.     iMethodFor(Method, gName, Method_im_gName); 
  75.     iMethodFor(Method, gTrace, Method_im_gTrace); 
  76.     iMethodFor(Method, gFunction, Method_im_gFunction); 
  77.     iMethodFor(Method, gChangeFunction, Method_im_gChangeFunction); 
  78.     iMethodFor(Method, gCopy, Method_im_gCopy); 
  79.     iMethodFor(Method, gDeepCopy, Method_im_gCopy); 
  80.     return Method_c; 
  81. } 
  82.  
  83. #if 0 
  84.  
  85. cmeth objrtn Method_cm_gNewMethod(object self, char *n, object c, object gen, ofun methf, ofun methf2){} 
  86.  
  87. #endif 
  88.